/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Obx / Mod / MMerge

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 4d 4d 65 72 67 65 | 00 00 00 00 00 00 00 00 |..MMerge|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 18 50 00 | 00 01 3e ae 06 bf 7e ae |......P.|..>...~.|
|00000060| 06 bf 8d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e9 66 00 00 |........|.....f..|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 cd |sc......|........|
|00000100| 17 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |........|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 1b 17 |Desc....|........|
|00000160| 00 00 09 00 00 00 13 17 | 00 00 00 00 00 00 00 82 |........|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 bd 16 00 00 |........|........|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 bf 14 00 00 |sc......|........|
|000001f0| 0f 00 00 00 b7 14 00 00 | 00 00 00 00 00 00 13 02 |........|........|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 2f 00 00 00 00 00 00 00 |........|/.......|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | 7c be 01 00 00 00 00 00 |lvetica.||.......|
|00000250| 90 01 00 00 00 00 12 00 | 00 00 01 82 f2 0d 00 00 |........|........|
|00000260| 00 00 00 00 00 84 00 00 | 00 00 00 00 00 22 00 00 |........|....."..|
|00000270| 00 00 00 00 00 00 01 00 | 00 00 00 48 65 6c 76 65 |........|...Helve|
|00000280| 74 69 63 61 00 7c be 01 | 00 01 00 00 00 90 01 00 |tica.|..|........|
|00000290| 00 00 00 4f 00 00 00 00 | 94 00 00 00 01 2b 00 00 |...O....|.....+..|
|000002a0| 00 00 1c 00 00 00 01 19 | 00 00 00 00 1f 00 00 00 |........|........|
|000002b0| 01 35 00 00 00 00 14 00 | 00 00 01 20 00 00 00 00 |.5......|... ....|
|000002c0| 1e 00 00 00 01 35 00 00 | 00 00 3e 00 00 00 01 3c |.....5..|..>....<|
|000002d0| 00 00 00 00 02 00 00 00 | 01 3f 00 00 00 00 02 00 |........|.?......|
|000002e0| 00 00 01 3e 00 00 00 00 | cc 01 00 00 02 82 f2 0d |...>....|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 22 |........|......."|
|00000300| 00 00 00 00 00 00 00 00 | 01 00 00 00 00 48 65 6c |........|.....Hel|
|00000310| 76 65 74 69 63 61 00 7c | be 01 00 00 00 00 00 bc |vetica.||........|
|00000320| 02 00 00 00 00 06 00 00 | 00 00 79 01 00 00 02 06 |........|..y.....|
|00000330| 00 00 00 00 50 00 00 00 | 01 4d 00 00 00 00 6d 00 |....P...|.M....m.|
|00000340| 00 00 01 2d 00 00 00 00 | 62 00 00 00 01 21 00 00 |...-....|b....!..|
|00000350| 00 00 96 00 00 00 01 11 | 00 00 00 00 20 00 00 00 |........|.... ...|
|00000360| 01 2a 00 00 00 00 ac 00 | 00 00 01 43 00 00 00 00 |.*......|...C....|
|00000370| d9 02 00 00 01 21 00 00 | 00 00 14 00 00 00 01 40 |.....!..|.......@|
|00000380| 00 00 00 00 44 00 00 00 | 01 15 00 00 00 00 34 00 |....D...|......4.|
|00000390| 00 00 01 18 00 00 00 00 | 34 00 00 00 01 18 00 00 |........|4.......|
|000003a0| 00 00 3b 00 00 00 01 14 | 00 00 00 00 37 00 00 00 |..;.....|....7...|
|000003b0| 02 05 00 00 00 00 d6 00 | 00 00 01 27 00 00 00 00 |........|...'....|
|000003c0| 24 00 00 00 01 22 00 00 | 00 00 1c 00 00 00 01 26 |$...."..|.......&|
|000003d0| 00 00 00 00 3a 00 00 00 | 01 39 00 00 00 00 22 00 |....:...|.9....".|
|000003e0| 00 00 01 18 00 00 00 00 | 4a 00 00 00 01 14 00 00 |........|J.......|
|000003f0| 00 00 2b 00 00 00 01 18 | 00 00 00 00 32 00 00 00 |..+.....|....2...|
|00000400| 01 25 00 00 00 00 49 00 | 00 00 01 1e 00 00 00 00 |.%....I.|........|
|00000410| 29 00 00 00 ff 4d 4f 44 | 55 4c 45 20 4f 62 78 4d |)....MOD|ULE ObxM|
|00000420| 4d 65 72 67 65 3b 0d 28 | 2a 20 6e 6f 74 65 20 74 |Merge;.(|* note t|
|00000430| 68 61 74 20 61 73 20 69 | 6e 20 74 68 65 20 6f 74 |hat as i|n the ot|
|00000440| 68 65 72 20 73 61 6d 70 | 6c 65 20 70 72 6f 67 72 |her samp|le progr|
|00000450| 61 6d 73 2c 20 6e 6f 20 | 65 72 72 6f 72 20 68 61 |ams, no |error ha|
|00000460| 6e 64 6c 69 6e 67 20 69 | 73 20 70 65 72 66 6f 72 |ndling i|s perfor|
|00000470| 6d 65 64 20 2a 29 0d 0d | 09 49 4d 50 4f 52 54 20 |med *)..|.IMPORT |
|00000480| 46 69 6c 65 73 2c 20 44 | 69 61 6c 6f 67 2c 20 56 |Files, D|ialog, V|
|00000490| 69 65 77 73 2c 20 54 65 | 78 74 4d 6f 64 65 6c 73 |iews, Te|xtModels|
|000004a0| 2c 20 54 65 78 74 56 69 | 65 77 73 2c 20 54 65 78 |, TextVi|ews, Tex|
|000004b0| 74 43 6f 6e 74 72 6f 6c | 6c 65 72 73 3b 0d 0d 09 |tControl|lers;...|
|000004c0| 43 4f 4e 53 54 20 74 61 | 62 20 3d 20 30 39 58 3b |CONST ta|b = 09X;|
|000004d0| 0d 0d 09 54 59 50 45 0d | 09 09 46 69 65 6c 64 20 |...TYPE.|..Field |
|000004e0| 3d 20 50 4f 49 4e 54 45 | 52 20 54 4f 20 52 45 43 |= POINTE|R TO REC|
|000004f0| 4f 52 44 0d 09 09 09 70 | 72 65 76 3a 20 46 69 65 |ORD....p|rev: Fie|
|00000500| 6c 64 3b 09 09 09 09 09 | 09 09 28 2a 20 66 69 65 |ld;.....|..(* fie|
|00000510| 6c 64 20 6c 69 73 74 20 | 69 73 20 73 6f 72 74 65 |ld list |is sorte|
|00000520| 64 20 69 6e 20 72 65 76 | 65 72 73 65 20 6f 72 64 |d in rev|erse ord|
|00000530| 65 72 20 2a 29 0d 09 09 | 09 6e 61 6d 65 3a 20 41 |er *)...|.name: A|
|00000540| 52 52 41 59 20 32 34 20 | 4f 46 20 43 48 41 52 3b |RRAY 24 |OF CHAR;|
|00000550| 09 28 2a 20 6e 61 6d 65 | 20 6f 66 20 70 6c 61 63 |.(* name| of plac|
|00000560| 65 68 6f 6c 64 65 72 20 | 2a 29 0d 09 09 09 74 6d |eholder |*)....tm|
|00000570| 70 6c 46 72 6f 6d 2c 20 | 74 6d 70 6c 54 6f 3a 20 |plFrom, |tmplTo: |
|00000580| 4c 4f 4e 47 49 4e 54 3b | 09 28 2a 20 63 68 61 72 |LONGINT;|.(* char|
|00000590| 61 63 74 65 72 20 72 61 | 6e 67 65 20 75 73 65 64 |acter ra|nge used|
|000005a0| 20 62 79 20 70 6c 61 63 | 65 68 6f 6c 64 65 72 20 | by plac|eholder |
|000005b0| 69 6e 20 74 65 6d 70 6c | 61 74 65 20 2a 29 0d 09 |in templ|ate *)..|
|000005c0| 09 09 69 6e 64 65 78 3a | 20 49 4e 54 45 47 45 52 |..index:| INTEGER|
|000005d0| 3b 09 28 2a 20 63 6f 6c | 75 6d 6e 20 69 6e 64 65 |;.(* col|umn inde|
|000005e0| 78 20 6f 66 20 74 68 69 | 73 20 66 69 65 6c 64 20 |x of thi|s field |
|000005f0| 2a 29 0d 09 09 09 64 61 | 74 61 46 72 6f 6d 2c 20 |*)....da|taFrom, |
|00000600| 64 61 74 61 54 6f 3a 20 | 4c 4f 4e 47 49 4e 54 09 |dataTo: |LONGINT.|
|00000610| 28 2a 20 63 68 61 72 61 | 63 74 65 72 20 72 61 6e |(* chara|cter ran|
|00000620| 67 65 20 75 73 65 64 20 | 62 79 20 61 63 74 75 61 |ge used |by actua|
|00000630| 6c 20 64 61 74 61 20 69 | 6e 20 64 61 74 61 62 61 |l data i|n databa|
|00000640| 73 65 20 2a 29 0d 09 09 | 45 4e 44 3b 0d 0d 09 50 |se *)...|END;...P|
|00000650| 52 4f 43 45 44 55 52 45 | 20 54 6d 70 6c 46 69 65 |ROCEDURE| TmplFie|
|00000660| 6c 64 73 20 28 74 3a 20 | 54 65 78 74 4d 6f 64 65 |lds (t: |TextMode|
|00000670| 6c 73 2e 4d 6f 64 65 6c | 29 3a 20 46 69 65 6c 64 |ls.Model|): Field|
|00000680| 3b 0d 09 28 2a 20 72 65 | 74 75 72 6e 73 20 61 20 |;..(* re|turns a |
|00000690| 6c 69 73 74 20 6f 66 20 | 70 6c 61 63 65 68 6f 6c |list of |placehol|
|000006a0| 64 65 72 20 66 69 65 6c | 64 73 2c 20 69 6e 20 72 |der fiel|ds, in r|
|000006b0| 65 76 65 72 73 65 20 6f | 72 64 65 72 20 2a 29 0d |everse o|rder *).|
|000006c0| 09 28 2a 20 65 61 63 68 | 20 66 69 65 6c 64 20 64 |.(* each| field d|
|000006d0| 65 66 69 6e 65 73 20 61 | 20 74 65 78 74 20 72 61 |efines a| text ra|
|000006e0| 6e 67 65 20 61 6e 64 20 | 6e 61 6d 65 20 6f 66 20 |nge and |name of |
|000006f0| 61 20 70 6c 61 63 65 68 | 6f 6c 64 65 72 20 2a 29 |a placeh|older *)|
|00000700| 0d 09 28 2a 20 74 68 65 | 20 70 6c 61 63 65 68 6f |..(* the| placeho|
|00000710| 6c 64 65 72 20 68 61 73 | 20 74 68 65 20 66 6f 72 |lder has| the for|
|00000720| 6d 20 22 2e 2e 2e 3c 4e | 61 6d 65 4f 66 50 6c 61 |m "...<N|ameOfPla|
|00000730| 63 65 68 6f 6c 64 65 72 | 3e 2e 2e 2e 22 20 2a 29 |ceholder|>..." *)|
|00000740| 0d 09 09 56 41 52 20 6c | 2c 20 66 3a 20 46 69 65 |...VAR l|, f: Fie|
|00000750| 6c 64 3b 20 72 3a 20 54 | 65 78 74 4d 6f 64 65 6c |ld; r: T|extModel|
|00000760| 73 2e 52 65 61 64 65 72 | 3b 20 63 68 3a 20 43 48 |s.Reader|; ch: CH|
|00000770| 41 52 3b 20 69 3a 20 49 | 4e 54 45 47 45 52 3b 0d |AR; i: I|NTEGER;.|
|00000780| 09 42 45 47 49 4e 0d 09 | 09 6c 20 3a 3d 20 4e 49 |.BEGIN..|.l := NI|
|00000790| 4c 3b 20 72 20 3a 3d 20 | 74 2e 4e 65 77 52 65 61 |L; r := |t.NewRea|
|000007a0| 64 65 72 28 4e 49 4c 29 | 3b 20 72 2e 53 65 74 50 |der(NIL)|; r.SetP|
|000007b0| 6f 73 28 30 29 3b 20 72 | 2e 52 65 61 64 43 68 61 |os(0); r|.ReadCha|
|000007c0| 72 28 63 68 29 3b 0d 09 | 09 57 48 49 4c 45 20 7e |r(ch);..|.WHILE ~|
|000007d0| 72 2e 65 6f 74 20 44 4f | 0d 09 09 09 49 46 20 63 |r.eot DO|....IF c|
|000007e0| 68 20 3d 20 22 3c 22 20 | 54 48 45 4e 0d 09 09 09 |h = "<" |THEN....|
|000007f0| 09 4e 45 57 28 66 29 3b | 20 66 2e 74 6d 70 6c 46 |.NEW(f);| f.tmplF|
|00000800| 72 6f 6d 20 3a 3d 20 72 | 2e 50 6f 73 28 29 20 2d |rom := r|.Pos() -|
|00000810| 20 31 3b 0d 09 09 09 09 | 72 2e 52 65 61 64 43 68 | 1;.....|r.ReadCh|
|00000820| 61 72 28 63 68 29 3b 20 | 69 20 3a 3d 20 30 3b 0d |ar(ch); |i := 0;.|
|00000830| 09 09 09 09 57 48 49 4c | 45 20 63 68 20 23 20 22 |....WHIL|E ch # "|
|00000840| 3e 22 20 44 4f 0d 09 09 | 09 09 09 66 2e 6e 61 6d |>" DO...|...f.nam|
|00000850| 65 5b 69 5d 20 3a 3d 20 | 63 68 3b 20 49 4e 43 28 |e[i] := |ch; INC(|
|00000860| 69 29 3b 0d 09 09 09 09 | 09 72 2e 52 65 61 64 43 |i);.....|.r.ReadC|
|00000870| 68 61 72 28 63 68 29 0d | 09 09 09 09 45 4e 44 3b |har(ch).|....END;|
|00000880| 0d 09 09 09 09 66 2e 6e | 61 6d 65 5b 69 5d 20 3a |.....f.n|ame[i] :|
|00000890| 3d 20 30 58 3b 20 66 2e | 74 6d 70 6c 54 6f 20 3a |= 0X; f.|tmplTo :|
|000008a0| 3d 20 72 2e 50 6f 73 28 | 29 3b 0d 09 09 09 09 66 |= r.Pos(|);.....f|
|000008b0| 2e 64 61 74 61 46 72 6f | 6d 20 3a 3d 20 2d 31 3b |.dataFro|m := -1;|
|000008c0| 20 66 2e 64 61 74 61 54 | 6f 20 3a 3d 20 2d 31 3b | f.dataT|o := -1;|
|000008d0| 0d 09 09 09 09 66 2e 70 | 72 65 76 20 3a 3d 20 6c |.....f.p|rev := l|
|000008e0| 3b 20 6c 20 3a 3d 20 66 | 0d 09 09 09 45 4e 44 3b |; l := f|....END;|
|000008f0| 0d 09 09 09 72 2e 52 65 | 61 64 43 68 61 72 28 63 |....r.Re|adChar(c|
|00000900| 68 29 0d 09 09 45 4e 44 | 3b 0d 09 09 52 45 54 55 |h)...END|;...RETU|
|00000910| 52 4e 20 6c 0d 09 45 4e | 44 20 54 6d 70 6c 46 69 |RN l..EN|D TmplFi|
|00000920| 65 6c 64 73 3b 0d 0d 09 | 50 52 4f 43 45 44 55 52 |elds;...|PROCEDUR|
|00000930| 45 20 54 68 69 73 44 61 | 74 61 62 61 73 65 20 28 |E ThisDa|tabase (|
|00000940| 29 3a 20 54 65 78 74 4d | 6f 64 65 6c 73 2e 4d 6f |): TextM|odels.Mo|
|00000950| 64 65 6c 3b 0d 09 09 56 | 41 52 20 6c 6f 63 3a 20 |del;...V|AR loc: |
|00000960| 46 69 6c 65 73 2e 4c 6f | 63 61 74 6f 72 3b 20 6e |Files.Lo|cator; n|
|00000970| 61 6d 65 3a 20 46 69 6c | 65 73 2e 4e 61 6d 65 3b |ame: Fil|es.Name;|
|00000980| 20 66 69 6c 65 3a 20 46 | 69 6c 65 73 2e 46 69 6c | file: F|iles.Fil|
|00000990| 65 3b 20 76 3a 20 56 69 | 65 77 73 2e 56 69 65 77 |e; v: Vi|ews.View|
|000009a0| 3b 0d 09 09 09 74 3a 20 | 54 65 78 74 4d 6f 64 65 |;....t: |TextMode|
|000009b0| 6c 73 2e 4d 6f 64 65 6c | 3b 0d 09 42 45 47 49 4e |ls.Model|;..BEGIN|
|000009c0| 0d 09 09 74 20 3a 3d 20 | 4e 49 4c 3b 0d 09 09 44 |...t := |NIL;...D|
|000009d0| 69 61 6c 6f 67 2e 47 65 | 74 49 6e 74 53 70 65 63 |ialog.Ge|tIntSpec|
|000009e0| 28 22 22 2c 20 6c 6f 63 | 2c 20 6e 61 6d 65 29 3b |("", loc|, name);|
|000009f0| 0d 09 09 49 46 20 6c 6f | 63 20 23 20 4e 49 4c 20 |...IF lo|c # NIL |
|00000a00| 54 48 45 4e 0d 09 09 09 | 76 20 3a 3d 20 56 69 65 |THEN....|v := Vie|
|00000a10| 77 73 2e 4f 6c 64 56 69 | 65 77 28 6c 6f 63 2c 20 |ws.OldVi|ew(loc, |
|00000a20| 6e 61 6d 65 29 3b 0d 09 | 09 09 49 46 20 28 76 20 |name);..|..IF (v |
|00000a30| 23 20 4e 49 4c 29 20 26 | 20 28 76 20 49 53 20 54 |# NIL) &| (v IS T|
|00000a40| 65 78 74 56 69 65 77 73 | 2e 56 69 65 77 29 20 54 |extViews|.View) T|
|00000a50| 48 45 4e 0d 09 09 09 09 | 74 20 3a 3d 20 76 28 54 |HEN.....|t := v(T|
|00000a60| 65 78 74 56 69 65 77 73 | 2e 56 69 65 77 29 2e 54 |extViews|.View).T|
|00000a70| 68 69 73 4d 6f 64 65 6c | 28 29 0d 09 09 09 45 4e |hisModel|()....EN|
|00000a80| 44 0d 09 09 45 4e 44 3b | 0d 09 09 52 45 54 55 52 |D...END;|...RETUR|
|00000a90| 4e 20 74 0d 09 45 4e 44 | 20 54 68 69 73 44 61 74 |N t..END| ThisDat|
|00000aa0| 61 62 61 73 65 3b 0d 0d | 09 50 52 4f 43 45 44 55 |abase;..|.PROCEDU|
|00000ab0| 52 45 20 4d 65 72 67 65 | 46 69 65 6c 64 73 20 28 |RE Merge|Fields (|
|00000ac0| 66 3a 20 46 69 65 6c 64 | 3b 20 74 3a 20 54 65 78 |f: Field|; t: Tex|
|00000ad0| 74 4d 6f 64 65 6c 73 2e | 4d 6f 64 65 6c 29 3b 0d |tModels.|Model);.|
|00000ae0| 09 28 2a 20 64 65 74 65 | 72 6d 69 6e 65 20 65 76 |.(* dete|rmine ev|
|00000af0| 65 72 79 20 74 65 6d 70 | 6c 61 74 65 20 66 69 65 |ery temp|late fie|
|00000b00| 6c 64 27 73 20 69 6e 64 | 65 78 20 69 6e 20 74 68 |ld's ind|ex in th|
|00000b10| 65 20 64 61 74 61 20 74 | 65 78 74 27 73 20 72 6f |e data t|ext's ro|
|00000b20| 77 20 6f 66 20 66 69 65 | 6c 64 73 20 2a 29 0d 09 |w of fie|lds *)..|
|00000b30| 09 56 41 52 20 72 3a 20 | 54 65 78 74 4d 6f 64 65 |.VAR r: |TextMode|
|00000b40| 6c 73 2e 52 65 61 64 65 | 72 3b 20 69 6e 64 65 78 |ls.Reade|r; index|
|00000b50| 2c 20 69 3a 20 49 4e 54 | 45 47 45 52 3b 20 63 68 |, i: INT|EGER; ch|
|00000b60| 3a 20 43 48 41 52 3b 0d | 09 42 45 47 49 4e 0d 09 |: CHAR;.|.BEGIN..|
|00000b70| 09 72 20 3a 3d 20 74 2e | 4e 65 77 52 65 61 64 65 |.r := t.|NewReade|
|00000b80| 72 28 4e 49 4c 29 3b 0d | 09 09 57 48 49 4c 45 20 |r(NIL);.|..WHILE |
|00000b90| 66 20 23 20 4e 49 4c 20 | 44 4f 09 28 2a 20 69 74 |f # NIL |DO.(* it|
|00000ba0| 65 72 61 74 65 20 6f 76 | 65 72 20 61 6c 6c 20 66 |erate ov|er all f|
|00000bb0| 69 65 6c 64 73 20 69 6e | 20 74 68 65 20 74 65 6d |ields in| the tem|
|00000bc0| 70 6c 61 74 65 20 2a 29 | 0d 09 09 09 66 2e 69 6e |plate *)|....f.in|
|00000bd0| 64 65 78 20 3a 3d 20 2d | 31 3b 0d 09 09 09 72 2e |dex := -|1;....r.|
|00000be0| 53 65 74 50 6f 73 28 30 | 29 3b 20 69 6e 64 65 78 |SetPos(0|); index|
|00000bf0| 20 3a 3d 20 30 3b 20 63 | 68 20 3a 3d 20 74 61 62 | := 0; c|h := tab|
|00000c00| 3b 0d 09 09 09 57 48 49 | 4c 45 20 28 63 68 20 3d |;....WHI|LE (ch =|
|00000c10| 20 74 61 62 29 20 26 20 | 28 66 2e 69 6e 64 65 78 | tab) & |(f.index|
|00000c20| 20 3d 20 2d 31 29 20 44 | 4f 09 28 2a 20 63 6f 6d | = -1) D|O.(* com|
|00000c30| 70 61 72 65 20 6e 61 6d | 65 73 20 6f 66 20 74 68 |pare nam|es of th|
|00000c40| 65 20 66 69 65 6c 64 73 | 20 2a 29 0d 09 09 09 09 |e fields| *).....|
|00000c50| 52 45 50 45 41 54 20 72 | 2e 52 65 61 64 43 68 61 |REPEAT r|.ReadCha|
|00000c60| 72 28 63 68 29 20 55 4e | 54 49 4c 20 63 68 20 3e |r(ch) UN|TIL ch >|
|00000c70| 3d 20 22 20 22 3b 0d 09 | 09 09 09 69 20 3a 3d 20 |= " ";..|...i := |
|00000c80| 30 3b 20 57 48 49 4c 45 | 20 63 68 20 3d 20 66 2e |0; WHILE| ch = f.|
|00000c90| 6e 61 6d 65 5b 69 5d 20 | 44 4f 20 72 2e 52 65 61 |name[i] |DO r.Rea|
|00000ca0| 64 43 68 61 72 28 63 68 | 29 3b 20 49 4e 43 28 69 |dChar(ch|); INC(i|
|00000cb0| 29 20 45 4e 44 3b 0d 09 | 09 09 09 49 46 20 28 63 |) END;..|...IF (c|
|00000cc0| 68 20 3c 20 22 20 22 29 | 20 26 20 28 66 2e 6e 61 |h < " ")| & (f.na|
|00000cd0| 6d 65 5b 69 5d 20 3d 20 | 30 58 29 20 54 48 45 4e |me[i] = |0X) THEN|
|00000ce0| 09 28 2a 20 6e 61 6d 65 | 73 20 6d 61 74 63 68 20 |.(* name|s match |
|00000cf0| 2a 29 0d 09 09 09 09 09 | 66 2e 69 6e 64 65 78 20 |*)......|f.index |
|00000d00| 3a 3d 20 69 6e 64 65 78 | 0d 09 09 09 09 45 4c 53 |:= index|.....ELS|
|00000d10| 45 09 28 2a 20 6e 6f 20 | 6d 61 74 63 68 3b 20 70 |E.(* no |match; p|
|00000d20| 72 6f 63 65 65 64 20 74 | 6f 20 6e 65 78 74 20 64 |roceed t|o next d|
|00000d30| 61 74 61 20 66 69 65 6c | 64 20 2a 29 0d 09 09 09 |ata fiel|d *)....|
|00000d40| 09 09 57 48 49 4c 45 20 | 63 68 20 3e 3d 20 22 20 |..WHILE |ch >= " |
|00000d50| 22 20 44 4f 20 72 2e 52 | 65 61 64 43 68 61 72 28 |" DO r.R|eadChar(|
|00000d60| 63 68 29 20 45 4e 44 0d | 09 09 09 09 45 4e 44 3b |ch) END.|....END;|
|00000d70| 0d 09 09 09 09 49 4e 43 | 28 69 6e 64 65 78 29 0d |.....INC|(index).|
|00000d80| 09 09 09 45 4e 44 3b 0d | 09 09 09 66 20 3a 3d 20 |...END;.|...f := |
|00000d90| 66 2e 70 72 65 76 0d 09 | 09 45 4e 44 0d 09 45 4e |f.prev..|.END..EN|
|00000da0| 44 20 4d 65 72 67 65 46 | 69 65 6c 64 73 3b 0d 0d |D MergeF|ields;..|
|00000db0| 09 50 52 4f 43 45 44 55 | 52 45 20 52 65 61 64 54 |.PROCEDU|RE ReadT|
|00000dc0| 75 70 6c 65 20 28 66 3a | 20 46 69 65 6c 64 3b 20 |uple (f:| Field; |
|00000dd0| 72 3a 20 54 65 78 74 4d | 6f 64 65 6c 73 2e 52 65 |r: TextM|odels.Re|
|00000de0| 61 64 65 72 29 3b 0d 09 | 28 2a 20 72 65 61 64 20 |ader);..|(* read |
|00000df0| 74 75 70 6c 65 20 69 6e | 20 64 61 74 61 2c 20 61 |tuple in| data, a|
|00000e00| 6e 64 20 61 73 73 69 67 | 6e 20 72 61 6e 67 65 73 |nd assig|n ranges|
|00000e10| 20 74 6f 20 63 6f 72 72 | 65 73 70 6f 6e 64 69 6e | to corr|espondin|
|00000e20| 67 20 66 69 65 6c 64 73 | 20 2a 29 0d 09 09 56 41 |g fields| *)...VA|
|00000e30| 52 20 69 6e 64 65 78 3a | 20 49 4e 54 45 47 45 52 |R index:| INTEGER|
|00000e40| 3b 20 66 72 6f 6d 2c 20 | 74 6f 3a 20 4c 4f 4e 47 |; from, |to: LONG|
|00000e50| 49 4e 54 3b 20 63 68 3a | 20 43 48 41 52 3b 20 67 |INT; ch:| CHAR; g|
|00000e60| 3a 20 46 69 65 6c 64 3b | 0d 09 42 45 47 49 4e 0d |: Field;|..BEGIN.|
|00000e70| 09 09 69 6e 64 65 78 20 | 3a 3d 20 30 3b 20 63 68 |..index |:= 0; ch|
|00000e80| 20 3a 3d 20 74 61 62 3b | 0d 09 09 57 48 49 4c 45 | := tab;|...WHILE|
|00000e90| 20 63 68 20 3d 20 74 61 | 62 20 44 4f 0d 09 09 09 | ch = ta|b DO....|
|00000ea0| 52 45 50 45 41 54 20 72 | 2e 52 65 61 64 43 68 61 |REPEAT r|.ReadCha|
|00000eb0| 72 28 63 68 29 20 55 4e | 54 49 4c 20 28 63 68 20 |r(ch) UN|TIL (ch |
|00000ec0| 3d 20 30 58 29 20 4f 52 | 20 28 63 68 20 3e 3d 20 |= 0X) OR| (ch >= |
|00000ed0| 22 20 22 29 20 4f 52 20 | 28 63 68 20 3d 20 74 61 |" ") OR |(ch = ta|
|00000ee0| 62 29 20 4f 52 20 28 63 | 68 20 3d 20 30 44 58 29 |b) OR (c|h = 0DX)|
|00000ef0| 3b 0d 09 09 09 66 72 6f | 6d 20 3a 3d 20 72 2e 50 |;....fro|m := r.P|
|00000f00| 6f 73 28 29 20 2d 20 31 | 3b 0d 09 09 09 57 48 49 |os() - 1|;....WHI|
|00000f10| 4c 45 20 63 68 20 3e 3d | 20 22 20 22 20 44 4f 20 |LE ch >=| " " DO |
|00000f20| 72 2e 52 65 61 64 43 68 | 61 72 28 63 68 29 20 45 |r.ReadCh|ar(ch) E|
|00000f30| 4e 44 3b 0d 09 09 09 74 | 6f 20 3a 3d 20 72 2e 50 |ND;....t|o := r.P|
|00000f40| 6f 73 28 29 3b 20 49 46 | 20 7e 72 2e 65 6f 74 20 |os(); IF| ~r.eot |
|00000f50| 54 48 45 4e 20 44 45 43 | 28 74 6f 29 20 45 4e 44 |THEN DEC|(to) END|
|00000f60| 3b 0d 09 09 09 67 20 3a | 3d 20 66 3b 0d 09 09 09 |;....g :|= f;....|
|00000f70| 57 48 49 4c 45 20 67 20 | 23 20 4e 49 4c 20 44 4f |WHILE g |# NIL DO|
|00000f80| 0d 09 09 09 09 49 46 20 | 67 2e 69 6e 64 65 78 20 |.....IF |g.index |
|00000f90| 3d 20 69 6e 64 65 78 20 | 54 48 45 4e 20 67 2e 64 |= index |THEN g.d|
|00000fa0| 61 74 61 46 72 6f 6d 20 | 3a 3d 20 66 72 6f 6d 3b |ataFrom |:= from;|
|00000fb0| 20 67 2e 64 61 74 61 54 | 6f 20 3a 3d 20 74 6f 20 | g.dataT|o := to |
|00000fc0| 45 4e 44 3b 0d 09 09 09 | 09 67 20 3a 3d 20 67 2e |END;....|.g := g.|
|00000fd0| 70 72 65 76 0d 09 09 09 | 45 4e 44 3b 0d 09 09 09 |prev....|END;....|
|00000fe0| 49 4e 43 28 69 6e 64 65 | 78 29 0d 09 09 45 4e 44 |INC(inde|x)...END|
|00000ff0| 0d 09 45 4e 44 20 52 65 | 61 64 54 75 70 6c 65 3b |..END Re|adTuple;|
|00001000| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 41 70 70 |...PROCE|DURE App|
|00001010| 65 6e 64 49 6e 73 74 61 | 6e 63 65 20 28 66 3a 20 |endInsta|nce (f: |
|00001020| 46 69 65 6c 64 3b 20 64 | 61 74 61 2c 20 74 6d 70 |Field; d|ata, tmp|
|00001030| 6c 2c 20 6f 75 74 3a 20 | 54 65 78 74 4d 6f 64 65 |l, out: |TextMode|
|00001040| 6c 73 2e 4d 6f 64 65 6c | 29 3b 0d 09 09 56 41 52 |ls.Model|);...VAR|
|00001050| 20 73 74 61 72 74 2c 20 | 66 72 6f 6d 3a 20 4c 4f | start, |from: LO|
|00001060| 4e 47 49 4e 54 3b 20 72 | 3a 20 54 65 78 74 4d 6f |NGINT; r|: TextMo|
|00001070| 64 65 6c 73 2e 52 65 61 | 64 65 72 3b 20 61 74 74 |dels.Rea|der; att|
|00001080| 72 3a 20 54 65 78 74 4d | 6f 64 65 6c 73 2e 41 74 |r: TextM|odels.At|
|00001090| 74 72 69 62 75 74 65 73 | 3b 0d 09 42 45 47 49 4e |tributes|;..BEGIN|
|000010a0| 0d 09 09 73 74 61 72 74 | 20 3a 3d 20 6f 75 74 2e |...start| := out.|
|000010b0| 4c 65 6e 67 74 68 28 29 | 3b 0d 09 09 72 20 3a 3d |Length()|;...r :=|
|000010c0| 20 6f 75 74 2e 4e 65 77 | 52 65 61 64 65 72 28 4e | out.New|Reader(N|
|000010d0| 49 4c 29 3b 0d 09 09 6f | 75 74 2e 43 6f 70 79 46 |IL);...o|ut.CopyF|
|000010e0| 72 6f 6d 28 73 74 61 72 | 74 2c 20 74 6d 70 6c 2c |rom(star|t, tmpl,|
|000010f0| 20 30 2c 20 74 6d 70 6c | 2e 4c 65 6e 67 74 68 28 | 0, tmpl|.Length(|
|00001100| 29 29 3b 09 28 2a 20 61 | 70 70 65 6e 64 20 6e 65 |));.(* a|ppend ne|
|00001110| 77 20 63 6f 70 79 20 6f | 66 20 74 65 6d 70 6c 61 |w copy o|f templa|
|00001120| 74 65 20 2a 29 0d 09 09 | 57 48 49 4c 45 20 66 20 |te *)...|WHILE f |
|00001130| 23 20 4e 49 4c 20 44 4f | 09 28 2a 20 73 75 62 73 |# NIL DO|.(* subs|
|00001140| 74 69 74 75 74 65 20 70 | 6c 61 63 65 68 6f 6c 64 |titute p|lacehold|
|00001150| 65 72 73 2c 20 66 72 6f | 6d 20 65 6e 64 20 74 6f |ers, fro|m end to|
|00001160| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 65 | beginni|ng of te|
|00001170| 6d 70 6c 61 74 65 20 2a | 29 0d 09 09 09 66 72 6f |mplate *|)....fro|
|00001180| 6d 20 3a 3d 20 73 74 61 | 72 74 20 2b 20 66 2e 74 |m := sta|rt + f.t|
|00001190| 6d 70 6c 46 72 6f 6d 3b | 0d 09 09 09 72 2e 53 65 |mplFrom;|....r.Se|
|000011a0| 74 50 6f 73 28 66 72 6f | 6d 29 3b 20 72 2e 52 65 |tPos(fro|m); r.Re|
|000011b0| 61 64 52 75 6e 28 61 74 | 74 72 29 3b 09 28 2a 20 |adRun(at|tr);.(* |
|000011c0| 73 61 76 65 20 61 74 74 | 72 69 62 75 74 65 73 20 |save att|ributes |
|000011d0| 2a 29 0d 09 09 09 6f 75 | 74 2e 44 65 6c 65 74 65 |*)....ou|t.Delete|
|000011e0| 28 66 72 6f 6d 2c 20 66 | 72 6f 6d 20 2b 20 66 2e |(from, f|rom + f.|
|000011f0| 74 6d 70 6c 54 6f 20 2d | 20 66 2e 74 6d 70 6c 46 |tmplTo -| f.tmplF|
|00001200| 72 6f 6d 29 3b 09 28 2a | 20 64 65 6c 65 74 65 20 |rom);.(*| delete |
|00001210| 70 6c 61 63 65 68 6f 6c | 64 65 72 20 2a 29 0d 09 |placehol|der *)..|
|00001220| 09 09 6f 75 74 2e 43 6f | 70 79 46 72 6f 6d 28 66 |..out.Co|pyFrom(f|
|00001230| 72 6f 6d 2c 20 64 61 74 | 61 2c 20 66 2e 64 61 74 |rom, dat|a, f.dat|
|00001240| 61 46 72 6f 6d 2c 20 66 | 2e 64 61 74 61 54 6f 29 |aFrom, f|.dataTo)|
|00001250| 3b 09 28 2a 20 69 6e 73 | 65 72 74 20 61 63 74 75 |;.(* ins|ert actu|
|00001260| 61 6c 20 64 61 74 61 20 | 2a 29 0d 09 09 09 6f 75 |al data |*)....ou|
|00001270| 74 2e 53 65 74 41 74 74 | 72 28 66 72 6f 6d 2c 20 |t.SetAtt|r(from, |
|00001280| 66 72 6f 6d 20 2b 20 66 | 2e 64 61 74 61 54 6f 20 |from + f|.dataTo |
|00001290| 2d 20 66 2e 64 61 74 61 | 46 72 6f 6d 2c 20 61 74 |- f.data|From, at|
|000012a0| 74 72 29 3b 09 28 2a 20 | 73 65 74 20 61 74 74 72 |tr);.(* |set attr|
|000012b0| 69 62 75 74 65 73 20 2a | 29 0d 09 09 09 66 20 3a |ibutes *|)....f :|
|000012c0| 3d 20 66 2e 70 72 65 76 | 0d 09 09 45 4e 44 0d 09 |= f.prev|...END..|
|000012d0| 45 4e 44 20 41 70 70 65 | 6e 64 49 6e 73 74 61 6e |END Appe|ndInstan|
|000012e0| 63 65 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |ce;...PR|OCEDURE |
|000012f0| 4d 65 72 67 65 2a 3b 0d | 09 09 56 41 52 20 63 3a |Merge*;.|..VAR c:|
|00001300| 20 54 65 78 74 43 6f 6e | 74 72 6f 6c 6c 65 72 73 | TextCon|trollers|
|00001310| 2e 43 6f 6e 74 72 6f 6c | 6c 65 72 3b 20 74 6d 70 |.Control|ler; tmp|
|00001320| 6c 2c 20 64 61 74 61 2c | 20 6f 75 74 3a 20 54 65 |l, data,| out: Te|
|00001330| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 3b 0d |xtModels|.Model;.|
|00001340| 09 09 09 74 6d 70 6c 46 | 69 65 6c 64 73 3a 20 46 |...tmplF|ields: F|
|00001350| 69 65 6c 64 3b 20 72 3a | 20 54 65 78 74 4d 6f 64 |ield; r:| TextMod|
|00001360| 65 6c 73 2e 52 65 61 64 | 65 72 3b 20 76 3a 20 54 |els.Read|er; v: T|
|00001370| 65 78 74 56 69 65 77 73 | 2e 56 69 65 77 3b 0d 09 |extViews|.View;..|
|00001380| 42 45 47 49 4e 0d 09 09 | 63 20 3a 3d 20 54 65 78 |BEGIN...|c := Tex|
|00001390| 74 43 6f 6e 74 72 6f 6c | 6c 65 72 73 2e 46 6f 63 |tControl|lers.Foc|
|000013a0| 75 73 28 29 3b 0d 09 09 | 49 46 20 63 20 23 20 4e |us();...|IF c # N|
|000013b0| 49 4c 20 54 48 45 4e 0d | 09 09 09 74 6d 70 6c 20 |IL THEN.|...tmpl |
|000013c0| 3a 3d 20 63 2e 74 65 78 | 74 3b 09 28 2a 20 74 65 |:= c.tex|t;.(* te|
|000013d0| 78 74 20 74 65 6d 70 6c | 61 74 65 20 75 73 65 64 |xt templ|ate used|
|000013e0| 20 66 6f 72 20 6d 61 69 | 6c 20 6d 65 72 67 65 20 | for mai|l merge |
|000013f0| 2a 29 0d 09 09 09 74 6d | 70 6c 46 69 65 6c 64 73 |*)....tm|plFields|
|00001400| 20 3a 3d 20 54 6d 70 6c | 46 69 65 6c 64 73 28 74 | := Tmpl|Fields(t|
|00001410| 6d 70 6c 29 3b 09 28 2a | 20 64 65 74 65 72 6d 69 |mpl);.(*| determi|
|00001420| 6e 65 20 66 69 65 6c 64 | 73 20 69 6e 20 74 65 6d |ne field|s in tem|
|00001430| 70 6c 61 74 65 20 2a 29 | 0d 09 09 09 64 61 74 61 |plate *)|....data|
|00001440| 20 3a 3d 20 54 68 69 73 | 44 61 74 61 62 61 73 65 | := This|Database|
|00001450| 28 29 3b 09 28 2a 20 67 | 65 74 20 74 65 78 74 20 |();.(* g|et text |
|00001460| 64 61 74 61 62 61 73 65 | 20 66 6f 72 20 6d 61 69 |database| for mai|
|00001470| 6c 20 6d 65 72 67 65 20 | 2a 29 0d 09 09 09 49 46 |l merge |*)....IF|
|00001480| 20 64 61 74 61 20 23 20 | 4e 49 4c 20 54 48 45 4e | data # |NIL THEN|
|00001490| 0d 09 09 09 09 4d 65 72 | 67 65 46 69 65 6c 64 73 |.....Mer|geFields|
|000014a0| 28 74 6d 70 6c 46 69 65 | 6c 64 73 2c 20 64 61 74 |(tmplFie|lds, dat|
|000014b0| 61 29 3b 09 28 2a 20 64 | 65 74 65 72 6d 69 6e 65 |a);.(* d|etermine|
|000014c0| 20 65 76 65 72 79 20 74 | 65 6d 70 6c 61 74 65 20 | every t|emplate |
|000014d0| 66 69 65 6c 64 27 73 20 | 63 6f 6c 75 6d 6e 20 69 |field's |column i|
|000014e0| 6e 20 64 61 74 61 62 61 | 73 65 20 2a 29 0d 09 09 |n databa|se *)...|
|000014f0| 09 09 6f 75 74 20 3a 3d | 20 54 65 78 74 4d 6f 64 |..out :=| TextMod|
|00001500| 65 6c 73 2e 64 69 72 2e | 4e 65 77 28 29 3b 09 28 |els.dir.|New();.(|
|00001510| 2a 20 63 72 65 61 74 65 | 20 6f 75 74 70 75 74 20 |* create| output |
|00001520| 74 65 78 74 20 2a 29 0d | 09 09 09 09 72 20 3a 3d |text *).|....r :=|
|00001530| 20 64 61 74 61 2e 4e 65 | 77 52 65 61 64 65 72 28 | data.Ne|wReader(|
|00001540| 4e 49 4c 29 3b 20 72 2e | 53 65 74 50 6f 73 28 30 |NIL); r.|SetPos(0|
|00001550| 29 3b 0d 09 09 09 09 52 | 65 61 64 54 75 70 6c 65 |);.....R|eadTuple|
|00001560| 28 74 6d 70 6c 46 69 65 | 6c 64 73 2c 20 72 29 3b |(tmplFie|lds, r);|
|00001570| 09 28 2a 20 73 6b 69 70 | 20 6d 65 74 61 20 64 61 |.(* skip| meta da|
|00001580| 74 61 20 2a 29 0d 09 09 | 09 09 52 45 50 45 41 54 |ta *)...|..REPEAT|
|00001590| 0d 09 09 09 09 09 52 65 | 61 64 54 75 70 6c 65 28 |......Re|adTuple(|
|000015a0| 74 6d 70 6c 46 69 65 6c | 64 73 2c 20 72 29 3b 09 |tmplFiel|ds, r);.|
|000015b0| 28 2a 20 72 65 61 64 20 | 6e 65 78 74 20 64 61 74 |(* read |next dat|
|000015c0| 61 20 72 6f 77 20 2a 29 | 0d 09 09 09 09 09 41 70 |a row *)|......Ap|
|000015d0| 70 65 6e 64 49 6e 73 74 | 61 6e 63 65 28 74 6d 70 |pendInst|ance(tmp|
|000015e0| 6c 46 69 65 6c 64 73 2c | 20 64 61 74 61 2c 20 74 |lFields,| data, t|
|000015f0| 6d 70 6c 2c 20 6f 75 74 | 29 09 28 2a 20 61 70 70 |mpl, out|).(* app|
|00001600| 65 6e 64 20 6e 65 77 20 | 69 6e 73 74 61 6e 63 65 |end new |instance|
|00001610| 20 6f 66 20 74 65 6d 70 | 6c 61 74 65 20 2a 29 0d | of temp|late *).|
|00001620| 09 09 09 09 55 4e 54 49 | 4c 20 72 2e 65 6f 74 3b |....UNTI|L r.eot;|
|00001630| 0d 09 09 09 09 76 20 3a | 3d 20 54 65 78 74 56 69 |.....v :|= TextVi|
|00001640| 65 77 73 2e 64 69 72 2e | 4e 65 77 28 6f 75 74 29 |ews.dir.|New(out)|
|00001650| 3b 0d 09 09 09 09 56 69 | 65 77 73 2e 4f 70 65 6e |;.....Vi|ews.Open|
|00001660| 56 69 65 77 28 76 29 09 | 28 2a 20 6f 70 65 6e 20 |View(v).|(* open |
|00001670| 74 65 78 74 20 76 69 65 | 77 20 69 6e 20 77 69 6e |text vie|w in win|
|00001680| 64 6f 77 20 2a 29 0d 09 | 09 09 45 4e 44 0d 09 09 |dow *)..|..END...|
|00001690| 45 4e 44 0d 09 45 4e 44 | 20 4d 65 72 67 65 3b 0d |END..END| Merge;.|
|000016a0| 0d 45 4e 44 20 4f 62 78 | 4d 4d 65 72 67 65 2e 82 |.END Obx|MMerge..|
|000016b0| f1 54 65 78 74 43 6f 6e | 74 72 6f 6c 6c 65 72 73 |.TextCon|trollers|
|000016c0| 2e 53 74 64 43 74 72 6c | 44 65 73 63 00 f1 54 65 |.StdCtrl|Desc..Te|
|000016d0| 78 74 43 6f 6e 74 72 6f | 6c 6c 65 72 73 2e 43 6f |xtContro|llers.Co|
|000016e0| 6e 74 72 6f 6c 6c 65 72 | 44 65 73 63 00 f1 43 6f |ntroller|Desc..Co|
|000016f0| 6e 74 61 69 6e 65 72 73 | 2e 43 6f 6e 74 72 6f 6c |ntainers|.Control|
|00001700| 6c 65 72 44 65 73 63 00 | f1 43 6f 6e 74 72 6f 6c |lerDesc.|.Control|
|00001710| 6c 65 72 73 2e 43 6f 6e | 74 72 6f 6c 6c 65 72 44 |lers.Con|trollerD|
|00001720| 65 73 63 00 f2 04 00 00 | 00 00 00 00 00 14 00 00 |esc.....|........|
|00001730| 00 00 00 00 00 09 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001740| 00 00 00 00 01 82 f1 54 | 65 78 74 52 75 6c 65 72 |.......T|extRuler|
|00001750| 73 2e 53 74 64 52 75 6c | 65 72 44 65 73 63 00 f1 |s.StdRul|erDesc..|
|00001760| 54 65 78 74 52 75 6c 65 | 72 73 2e 52 75 6c 65 72 |TextRule|rs.Ruler|
|00001770| 44 65 73 63 00 f2 03 00 | 00 00 00 00 00 00 ab 00 |Desc....|........|
|00001780| 00 00 07 00 00 00 a3 00 | 00 00 00 00 00 83 f1 54 |........|.......T|
|00001790| 65 78 74 52 75 6c 65 72 | 73 2e 53 74 64 53 74 79 |extRuler|s.StdSty|
|000017a0| 6c 65 44 65 73 63 00 f1 | 54 65 78 74 52 75 6c 65 |leDesc..|TextRule|
|000017b0| 72 73 2e 53 74 79 6c 65 | 44 65 73 63 00 f2 07 00 |rs.Style|Desc....|
|000017c0| 00 00 00 00 00 00 00 00 | 00 00 08 00 00 00 5a 00 |........|......Z.|
|000017d0| 00 00 00 00 00 00 82 f1 | 54 65 78 74 52 75 6c 65 |........|TextRule|
|000017e0| 72 73 2e 41 74 74 72 69 | 62 75 74 65 73 44 65 73 |rs.Attri|butesDes|
|000017f0| 63 00 f2 04 00 00 00 00 | 00 00 00 00 00 00 00 00 |c.......|........|
|00001800| 00 00 00 24 00 00 00 00 | 01 00 00 00 00 00 00 00 |...$....|........|
|00001810| 00 20 a3 5a 00 00 00 00 | 00 18 f0 01 00 38 63 00 |. .Z....|.....8c.|
|00001820| 00 01 00 00 00 01 00 00 | 00 00 00 00 00 82 f2 0d |........|........|
|00001830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 22 |........|......."|
|00001840| 00 00 00 00 00 00 00 00 | 01 00 00 00 00 48 65 6c |........|.....Hel|
|00001850| 76 65 74 69 63 61 00 7c | be 01 00 00 00 00 00 90 |vetica.||........|
|00001860| 01 00 00 00 00 00 00 00 | 00 00 00 00 00 e0 8c 01 |........|........|
|00001870| 00 e0 8c 01 00 00 30 5c | 00 e0 b9 3b 3e 82 f1 44 |......0\|...;>..D|
|00001880| 6f 63 75 6d 65 6e 74 73 | 2e 43 6f 6e 74 72 6f 6c |ocuments|.Control|
|00001890| 6c 65 72 44 65 73 63 00 | f2 10 00 00 00 00 00 00 |lerDesc.|........|
|000018a0| 00 00 00 00 00 00 00 00 | 00 08 00 00 00 00 00 00 |........|........|
|000018b0| 00 00 09 00 00 00 00 94 | 4d 73 00 18 2b a3 00 80 |........|Ms..+...|
|000018c0| fc 0a 00 80 fc 0a 00 a0 | 9f 65 00 98 2e 98 00 00 |........|.e......|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00001910| 01 20 99 08 01 20 81 08 | fe 20 80 08 00 20 80 08 |. ... ..|. ... ..|
|00001920| 00 20 4a 00 1f 20 34 00 | 00 20 00 fc 00 20 03 00 |. J.. 4.|. ... ..|
|00001930| 06 4d 4d 65 72 67 65 4d | 02 00 00 00 50 61 72 74 |.MMergeM|....Part|
|00001940| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 00 48 94 |SIT!....|......H.|
|00001950| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 ae 04 81 ae 00 00 | 00 00 00 00 01 3e 10 00 |........|.....>..|
|00001980| 04 80 10 00 04 40 10 00 | 04 20 10 00 07 f0 10 00 |.....@..|. ......|
|00001990| 00 10 10 00 00 10 10 00 | 00 10 10 00 00 10 10 00 |........|........|
|000019a0| 00 10 10 00 00 10 10 00 | 00 10 10 00 00 10 10 00 |........|........|
|000019b0| 00 10 10 00 00 10 10 00 | 00 10 10 00 00 10 10 00 |........|........|
|000019c0| 00 10 10 00 00 10 10 00 | 00 10 10 00 00 10 10 00 |........|........|
|000019d0| 00 10 10 00 00 10 10 00 | 00 10 10 00 00 10 10 00 |........|........|
|000019e0| 00 10 10 00 00 10 10 00 | 00 10 10 00 00 10 1f ff |........|........|
|000019f0| ff f0 1f ff fc 00 1f ff | fe 00 1f ff ff 00 1f ff |........|........|
|00001a00| 00 00 00 08 00 32 00 05 | 01 db 01 f8 00 00 01 00 |.....2..|........|
|00001a10| 00 00 01 0c 00 00 00 0c | 00 00 00 32 00 58 bf 48 |........|...2.X.H|
|00001a20| 10 2a 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.*.....2|..WNSP..|
|00001a30| 00 0a 00 01 ff ff 00 00 | 00 00 00 58 c3 78 00 00 |........|...X.x..|
|00001a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+